Dim sampel_string As String = "from the first space"
Dim string1 As String = sampel_string.SubString2(0,sampel_string.IndexOf(" ")) ' from char pos 0 upto the space
Dim string2 As String = sampel_string.SubString(sampel_string.IndexOf(" ")+1) ' from the space+1 to end of string