Помогите с кодом в VB.net

[Загуз]

Помогите с 5-ой лабораторной по программированию а то сроки поджимают
Лаба Номер 5.png

[Aleksandr H.]

1

sub main
 msgbox(ubound(split(" " & inputbox("Введите текст:")," б", ,1)))
end sub

2

a = "125(asdfg)6544"
MsgBox Mid(a, InStr(1, a, "(") + 1, InStr(1, a, ")") - InStr(1, a, "(") - 1)