Read until the space

[iggydarsa]

Hi everyone,

In Vba how can I read partial strings?

lets say I have "abc 123" (there is space after "abc"), and this string is in cell A1 in Sheet1. I want to read the data UNTIL THE FIRST SPACE, so that I can assign "abc" to my variable.

How can I do that?

Thanks

 

[BrianB]

Sub test()
    Dim MyString1 As String
    Dim MyString2 As String
    MyString1 = "abc 123"
    s = InStr(1, MyString1, " ", vbTextCompare)
    MyString2 = Left(MyString1, s - 1)
    MsgBox (MyString2)
End Sub

 

[iggydarsa]

Thnx Brian,

Now I will try to adapt according to my code... I hope it works