Работа Left,Right,Trim, Проверка строки на символ

Sub g()

'Процедура, разбивающая строку на составляющие, с проверкой в одной из строк все ли символы
'являются цифрами и удалением не нужных символов
Dim AutoM As String
Dim outgo As String

Dim RowsCount As Integer
Dim str As String
Dim j As Integer
Const SymbolNuber = "0123456789.,"

str = "14   ГАЗ 3110  (40620 Д -4L-2.3-131-5М)                       11.5 **"

RowsCount = 100


For i = 0 To RowsCount

outgo = Trim(Right(str, Len(str) - InStr(str, ")")))
j = 1
    While (j <= Len(outgo))
        If InStr(1, SymbolNuber, Mid(outgo, j, 1)) = 0 Then
           outgo = Replace(outgo, Mid(outgo, j, 1), "")
        Else
            j = j + 1
        End If
    Wend
    AutoM = Trim(Left(str, InStr(str, ")")))
    AutoM = Trim(Right(AutoM, Len(AutoM) - Len(Left(AutoM, InStr(AutoM, " ")))))


Next i

End Sub