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

[Aqil_f]

В textbox есть такой запись (с разделителями ';'):
textbox1.text="111; asddf; we12341s; rty456"
Как получить последный (именно 4-й) часть этого текста?

[SAS888]

Например, так:

x = Split(textbox1, ";")(3)

[Aqil_f]

SAS888, cпасибо!

[DZAZ]

Ребят и мне помогите определить вытаскивание нужного текста из полученной строковой переменной посредством VBA.
С com порта получаю буфер и вписываю в переменную.
Итого переменная с полученными данными всегда однотипно выглядит, а именно вот так как в скобках (самих скобок конечно там нет):
( 6 2.42kg ).
Мне нужно получить в textbox именно 2.42 , но по логике я понимаю, что значение цифровое может быть и 2 и 3 и 4 цифры до запятой, то есть значение нужно слева от kg и до первого пробела.

Заранее спасибо!

[Aleksandr H.]

Function GetMyValue(s As String)
    GetMyValue = StrReverse(Mid(Trim(StrReverse(s)), 3, InStr(Trim(StrReverse(s)), " ") - 3))
End Function

[DZAZ]

Александр, спасибо, что откликнулись!

Я даже не любитель в VBA, поэтому костыли мои решения)).
Я вставил Ваш код , но результат получил 2.42kg, то есть с единицей измерения.
А как убрать kg ?

Private Sub Button1_Click()

Dim v As String
Dim vr As String


MSComm1.InputLen = 0
On Error Resume Next
MSComm1.PortOpen = True
Label1.Caption = "Ïîðò îòêðûò"

If Err Then
MsgBox "Com" & MSComm1.CommPort & ": not available. Change CommPort property to another port."
Label1.Caption = "Ïîðò çàêðûò"
Exit Sub
End If

Do
Dummy = DoEvents()
Loop Until MSComm1.InBufferCount >= 8
v = MSComm1.Input
TextBox2.Text = StrReverse(Mid(Trim(StrReverse(v)), 3, InStr(Trim(StrReverse(v)), " ") - 3))
MSComm1.PortOpen = False
End Sub

[DZAZ]

Вообщем kg то я убрал, но похоже, что надо использовать указание переменной "v" как массива. Потом Split использовать для разбивки на группу строк. И выводить нужную строку.
Проблема заключается в том, что значение веса, как писал в самом начале, это переменная величина приходящая с com порта. Сейчас она 4.24 а другая коробка 18.67 и т.д., то есть считывание фиксированного количества цифр функцией обратного считывания строки возможно что не подходит.

А есть возможность поделиться знанием, как вынимать только цифровое значение, которое может иметь разное количество цифр с наличием десятичных или без них?

[Aleksandr H.]

Тестировал функцию на данных с сообщения №1. Может вход не такой как написали?

Sub foo()
    Dim s As String
    s = "6 2.42kg"
    MsgBox s & vbNewLine & GetMyValue(s)
End Sub

Function GetMyValue(s As String)
    GetMyValue = StrReverse(Mid(Trim(StrReverse(s)), 3, InStr(Trim(StrReverse(s)), " ") - 3))
End Function

хотя могете и через сплит

Sub foo()
    Dim s As String
    Dim v
    s = "6 2.42kg"
    v = Split(s, " ")
    
    MsgBox s & vbNewLine & Replace(UCase(v(UBound(v))), "KG", "")
End Sub

[DZAZ]

суть в том, что если я ставлю :
Dim s As String
Dim v
s = MSComm1.Input
v = Split(s, " ")
TextBox3.Text = Replace(UCase(v(UBound(v))), "KG", "")

То если значение цифровое идет с одной цифрой до точки, типа 4.34 , то выдает почти нормально в textbox , но если вес следующей коробки будет , например 57.45, то не выдает уже ничего.
Какая строка может приходить в переменную "s":
например измеряю первую коробку
1 4.21kg+непечатный символ в конце kg
сохранил это измерение в ексель
измеряю новую коробку
2 17.56kg+непечатный символ в конце kg

1 и 2 это порядковый номер измерения и нам он не важен.
Но вот значения могут быть с одной цифрой после точки или с двумя цифрами после точки или три цифры до точки.
А сейчас когда одна цифра до точки, то значение вписывает, только непечатный символ в конце еще остается лишним (прикладываю скрин экрана).
Но если будет значение две цифры до точки, то ничего не вписывает совсем.

[Aleksandr H.]

Дайте хотя бы 20-30 примеров данных