Dim s As String = "54.321-"s = Strings.StrReverse(s)Dim v As DoubleIf Double.TryParse(s,v) Then messagebox.show(v)End If