单字符。
Dim s As String = "123.456"Dim i As DoubleIf Double.TryParse(s, i) Then Messagebox.Show("这是一个数字!")End If