You can use this code ....
Public Shared Function StringToBinary(ByVal data As String) As String
Dim sb As StringBuilder = New StringBuilder()
Dim c As Char
For Each c In data.ToCharArray()
sb.Append(Convert.ToString(c, 2).PadLeft(8,"0"c))
Next
Return sb.ToString()
End Function