Short VB code error

Lenny

Can anyone notice anything wrong with below
thanks

Option Explicit
Private Sub Form_Load()
Dim string1 As String
Dim string2 As String
Dim msg As String
Dim position As Integer

string1 = "smithtwitdumfreemantwitdumrothtwitdum"
position = InStr(string1, "twitdum")
string2 = Mid(string1, "twitdum")
msg = "the first occurrence of " & "`" & string2 & "`"
msg = msg & " is at position " & position
msg = msg & vbCrLf & vbCrLf

position = InStr(position + 1, string1, "twitdum")
string2 = Mid(string1, position, 7)
msg = msg & "the second occurrence of" & _
"`" & string2 & "`"
msg = msg & " is at postion " & position
msg = msg & vbCrLf & vbCrLf

position = InStr(position + 1, string1, "twitdum")
msg = msg & " the third occurrence of " & _
"`" & string2 & "`"
msg = msg & " is at postion " & position
MsgBox msg
End Sub

Laguna

What's the error number/message you get during compile time?

krinpit

Perhaps your problem is

string2 = Mid(string1, "twitdum")

Isn't the second parameter to Mid supposed to be an Integer?

Eoin

Off the top of my head, it looks like you have the "mid" bit wrong. If the usage is the same as in ASP, which I would think it is, it expects the following syntax:

string2 = mid(string1, nStart, nEnd)

where nStart is the integer you want it to start at, and nEnd is the last position.

You have passed in two strings instead of one string and two integers

string2 = Mid(string1, "twitdum")

Try this:

string2 = mid(string1, instr(string1, "twitdum"), len("twitdum"))

Eoin