Как разделить textbox1.text (с разделителями ;) по частям?

[DZAZ]

приложил файл ексель с примерами значений, которые в таком разряде цифр могут прилетать. Общее это от 0.01 до 150.00 КГ значения.
Так же прикладываю скрин из hyperterminal , правда там не видно непечатного символа сразу после kg, видимо он скрывает такие символы, но буфер его содержит.

[Aleksandr H.]

Сейчас "накостыляем" чего-то

Function GetMyValue2(s As String)
    Dim v, vu
    v = Split(Application.Trim(s), " ")
    vu = Split(UCase(v(UBound(v))), "KG")
    GetMyValue2 = vu(0)
End Function

[DZAZ]

Спасибо большое! Это уже работает на этом диапазоне значений правильно. Интересно до куда эти костыли дотянут)).

[DZAZ]

Странно, в самм ексель работает хорошо. Но вставляешь в VBA находит совсем иные значения и не вставляет. У меня есть исходник макроса и на форме 2 есть textbox3 в который надо вставлять значение.
Не понял почему, но запрос функции расположенной отдельно не пошел по синтаксису.
Решил просто внести в код процедуры кнопки CAS.

Но фиаско, не вписывает результат в textbox, а с точкой остановки показывает странные цифры в переменных, кроме Comm1Input.