Loop without do?

[emcee]

When I try to run this code vb keeps highlighting the line commented with "this on" and saying it is a loop without a do, yet there is clearly a do, what's the problem?.


Private Sub Command1_Click()
Dim fred As Long
Dim bob As Long
Dim dan As Long
Dim jack As Long
Dim abe As Long
Dim larry As String
abe = 0
bob = 0
Do
dan = Len(Text4.Text) - bob
jack = Text2.Text ^ bob
fred = Mid(Text4.Text, dan, 1) * jack
abe = abe + fred
bob = bob + 1
Loop Until bob = Len(Text4.Text)
fred = abe
bob = 0
dan = 0
jack = 0
Do
al = fred
Do
dan = (Text1.Text - 1) * (Text1.Text ^ bob)
If fred > dan Then
larry = 0 + larry
Else
If fred < dan Then
jack = Round((dan / fred), 0)
larry = jack + larry
fred = dan Mod fred
End If
bob = bob + 1
Loop Until fred <> al 'This one
bob = 0
Loop Until fred = 0
End Sub

[beachbum]

Originally posted by emcee

If fred > dan Then
larry = 0 + larry
Else
If fred < dan Then
jack = Round((dan / fred), 0)
larry = jack + larry
fred = dan Mod fred
End If

Your problem is here. U have an unfinished IF THEN statement. Either u could add an End If at the end of the quoted lines or change the ELSE to an ELSEIF
Regards
Stuart

PS I know the error msg is odd but it is nothing to do with loops just that VB couldnt understand it

PPS ALSO, Larry is declared as a String which is wrong