[Taha Okla]

وعليكم السلام ورحمة الله وبركاته

هذا  الكود : 

كود :

   Public Function GetNumber(ByVal text As String) As String
       Dim rval As String = String.Empty
       Dim coll As MatchCollection = Regex.Matches(text, "\d+.")
       For Each a As Match In coll
           rval += a.ToString
       Next
       Return rval
   End Function

أو استخدم هذا  :

كود :

Public Function GetNumber(ByVal text As String) As Double
   If Len(text) = 0 Then
       Return 0
   Else
       Dim strN As String = ""

       For i = 1 To text.Length
           Dim S1 As String = Mid(text, i, 1)
           If (Asc(S1) >= 48 And Asc(S1) <= 56) Or Asc(S1) = 46 Then
               strN &= S1
           End If
       Next

       Return strN
   End If
End Function