splitting line

[amxJ]

thanks

[Jmacp]

Dim strString As String
strString = "name=SOMETHINGmessage=SOMETHING"
 
MsgBox Split(Split(strString, "=")(1), "message")(0)
MsgBox Mid(strString, InStrRev(strString, "=") + 1, Len(strString) - InStrRev(strString, "=") + 1)

[Hack]

Welcome to the forums.

You will need to be a bit more specific.

Where is the line? Are you talking about text in a textbox? Text in a file?

When we have what we are looking for, what are we searching? A database field? A textbox? A text file? What?

[Harsh Gupta]

try this:

Dim myString$
Private Sub Command1_Click()
 
    myString = "name=SOMETHINGmessage=SOMETHINGELSE"
    MsgBox "name = " & Split(Split(myString, "=")(1), "message")(0)
    MsgBox "message = " & Mid$(myString, InStrRev(myString, "=") + 1)
 
End Sub

EDIT: Not again