This is why you need Option Strict On.

gistfile1.vb

Dim list As IList(Of String) = text.Split(" ")
Dim number As String = ""
For Each entry In list
  If Char.IsDigit(entry) Then
    number = entry
    Exit For
  End If
Next
If number = 1 Then
  Return True
Else
  Return False
End If