Dim kelime As String
    Dim i As Integer, j As Integer
    Dim arr, son As Integer
    
    kelime = txtmesaj.Value
    
     ReDim arr(1 To Len(kelime))
    
    For i = LBound(arr) To UBound(arr)
        arr(i) = Mid(kelime, i, 1)
    Next
    
    
    For i = 1 To Len(kelime)
         If IsNumeric(arr(i)) Then
            ilk = i
            Exit For
        End If
    Next
    
    
    For j = UBound(arr) To LBound(arr) Step -1
       If IsNumeric(arr(j)) Then
            son = j
            Exit For
        End If
    Next
    
    MsgBox Mid(kelime, ilk, (son - ilk) + 1)
    kelime = vbNullString
    Erase arr