'Hier ggf. die korrekte Kultur der Datenquelle angeben
   Dim myNumberDecimalSeparatorChar As String =
   Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSeparator
 
   Dim Something As String = "180.41911364324 W"
 
   Dim myNumber As Decimal, myNumberRounded As Decimal
 
   If String.IsNullOrWhiteSpace(Something) Then
      MsgBox("Missing Chars")
   Else
      Dim mynumberstring As String =
          Something.Replace(".", myNumberDecimalSeparatorChar).Split(" ")(0)
 
      If Not Decimal.TryParse(myNumberString, myNumber) Then
         MsgBox("Conversion failed")
      Else
         myNumberRounded = _
            Math.Round(myNumber, 2, MidpointRounding.AwayFromZero)
            MsgBox("Conversion: " & myNumberRounded.ToString)
      End If
   End If