I am not sure I've understood your question but it looks like you want the position and the positions binary representation of each word found in a string?
If that is indeed the case something like this might work for you;
Sub Main()
Dim str As String = "I am waersoft I will to engineering in future"
Dim word As String = String.Empty
Dim start As Integer = 0
For i As Integer = 0 To str.Length - 1
Dim c As Char = str.Chars(i)
If Char.IsWhiteSpace(c) Then
If Not String.IsNullOrWhiteSpace(word) Then
Console.WriteLine("Word '{0}' found at position {1} (binary value {2})", word, start, Convert.ToString(start, 2))
End If
word = String.Empty
Else
If String.IsNullOrEmpty(word) Then start = i
word = word + c
End If
Next
End Sub
Which would print something like;
Word 'I' found at position 0 (binary value 0)
Word 'am' found at position 2 (binary value 10)
Word 'waersoft' found at position 5 (binary value 101)
Word 'I' found at position 14 (binary value 1110)
Word 'will' found at position 16 (binary value 10000)
Word 'to' found at position 21 (binary value 10101)
Word 'engineering' found at position 24 (binary value 11000)
Word 'in' found at position 36 (binary value 100100)
Hope this helps,
Fredrik