VBA "mid" with "next I"

[dukeofscouts]

I'm trying to work on some VBA code that will allow me to type a text string, which excel will then "read" and perform a series of actions based on the characters in that text string. Below is what I tried, but I got an error message. My guess is I need to set the "i" value differently, any suggestions?

-Thanks much
--D.O.S.

Private Sub CommandButton2_Click()
For Each i In Rubrixform.TextBox1.Value
If Mid(Rubrixform.TextBox1.Value, i, 1) = "f" Then
If Mid(Rubrixform.TextBox1.Value, i+1, 1) = "'" Then
RubixFi
Else
RubixF
If Mid(Rubrixform.TextBox1.Value, i, 1) = "r" Then
If Mid(Rubrixform.TextBox1.Value, i+1, 1) = "'" Then
Rubixri
Else
Rubixr
If Mid(Rubrixform.TextBox1.Value, i, 1) = "u" Then
If Mid(Rubrixform.TextBox1.Value, i+1, 1) = "'" Then
RubixUi
Else
RubixU
If Mid(Rubrixform.TextBox1.Value, i, 1) = "d" Then
If Mid(Rubrixform.TextBox1.Value, i+1, 1) = "'" Then
Rubixdi
Else
Rubixd
If Mid(Rubrixform.TextBox1.Value, i, 1) = "l" Then
If Mid(Rubrixform.TextBox1.Value, i+1, 1) = "'" Then
Rubixli
Else
Rubixl
Next i
End Sub

 

[mikerickson]

Each of those IF's needs a matching End If.
With code like that, proper indenting makes it easier for you to read.
When posting on a message board, using code tags (and proper indenting) makes it easier for us to read.

 

[dukeofscouts]

Private Sub CommandButton2_Click()
For Each i In Rubrixform.TextBox1.Value

If Mid(Rubrixform.TextBox1.Value, i, 1) = "f" Then
​

If Mid(Rubrixform.TextBox1.Value, i, 1) = "'" Then
​

RubixFi
​

Else
​

RubixF
​

End If
​

End If
...
​

Next i
End Sub

 

[dukeofscouts]

does that help at all?

 

[dukeofscouts]

Ok here is my latest rendition, still getting an error on it, but I think this is closer to what it should look like. I hope this idea is possible, and not just great theory that doesn't work.

Private Sub CommandButton2_Click()
For a_counter = 1 To Len(ribixfrom.TextBox1.Value)

If Mid(Rubrixform.TextBox1.Value, a_counter, 1) = "f" Then
​

If Mid(Rubrixform.TextBox1.Value, a_counter, 1) = "'" Then
​

RubixFi
​

Else
​

RubixF
​

End If
​

End If
...
​

end sub

 

[dukeofscouts]

I GOT IT! the a_counter was the issue... thanks to every one for all the help you offered. Have a great week!