[@Hunter13ua]

1 - текстовое поле, куда пользователь вводит произвольный текст.
2 - текстовое поле, куда пользователь вводит одно слово.
3 - Вывод в label.
По нажатию кнопки происходит анализ: в лейбл выводит все слова из поля (1), в которых есть все буквы слова, указанного в поле (2). По переключению радио-кнопки выводит все слова, в которых нету ни одной совпадающей буквы. В случае, если не найдено ни одного подходящего слова - вывести соответствующее сообщение ( MsgBox ).
-----------
P.S. Начал изучать бейсик - немного офигел, как тут муторно со строками играться.. За любую помощь буду благодарен.

[@ikki]

Начал изучать бейсик - немного офигел, как тут муторно со строками играться.

а как бы Вы решили эту задачу на "не муторном" языке?
и, кстати, на каком?

[@Hunter13ua]

На С/С++/С# сделал/нашел бы метод, проверяющий если ли все символы одного слова во втором. Так бы разбил строку на слова, каждое отдельно проанализовал и вывел результат. Здесь же даже не могу понять как обратиться к символам слова и как разбить строку на слова. Да и что там, вчера делал, а сегодня уже не могу считать толково строку и вывести в лейбл. Короче, перед Вами человек, который первый раз видит basic.

[@Антихакер32]

Здесь же даже не могу понять как обратиться к символам слова и как разбить строку на слов

Visual Basic
1 2 3 4 arr=Split("Два слова") msgbox arr(0) msgbox arr(1) msgbox mid(arr(0),3,1) 'Возвратит 3-й символ первого слова

Добавлено через 3 минуты
По умолчанию функция Split разделяет слова на пробелы..
но можно использовать и свой разделитель

arr=Split("Два/слова","/")

Добавлено через 3 минуты
На байсике, можно сделать абсолютно всё..
вот пример разбития на слова

Visual Basic

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 Option Explicit Const edn = "ноль один два три четыре пять шесть семь восемь девять" Const ndc = "одиннадцать двенадцать тринадцать четырнадцать пятнадцать шестнадцать семнадцать восемнадцать девятнадцать" Const des = "десять двадцать тридцать сорок пятьдесят шестьдесят семьдесят восемьдесят девяносто" Const sot = "сто двести триста четыреста пятьсот шестьсот семьсот восемьсот девятьсот" Const tsh = "тысяча тысячи тысяч", mln = "миллион миллиона миллионов", mrd = "миллиард миллиарда миллиардов" Const valuteRub = "рубль рубля рублей", valuteKop = "копейка копейки копеек" Dim s$, f&, Fltr$, Kop$ Function SumProp$(ByVal Expression As Double, Optional ByVal val$ = valuteRub, Optional rec&)     Const p = " ", z = ", ":  Dim s$     If Expression <> Fix(Expression) Then         'для вывода инфы копейки округляются до 2-х знаков после запятой        'например: 0,3 = 30 копеек // 0,03 = три копейки        Kop = Mid$(Expression, InStr(1, Expression, ",") + 1, 2)         Kop = Kop & String(2 - Len(Kop), 48)         Kop = z & SumProp(Kop, valuteKop, rec + 1): Expression = Fix(Expression)     End If: If Expression >= 2 ^ 31 Then MsgBox "Вы ввели очень большое число", vbInformation: Exit Function     While Expression > 0         Select Case Expression         Case Is >= 10 ^ 9: s = s & SumProp(Fix(Expression \ 10 ^ 9), mrd, rec + 1): Expression = Expression Mod 10 ^ 9         Case Is >= 10 ^ 6: s = s & SumProp(Expression \ 10 ^ 6, mln, rec + 1): Expression = Expression Mod 10 ^ 6         Case Is >= 1000: s = s & SumProp(Expression \ 1000, tsh, rec + 1): Expression = Expression Mod 1000         Case Is >= 100: s = s & Split(sot)(Expression \ 100 - 1) & p: Expression = Expression Mod 100         Case 10, Is >= 20: s = s & Split(des)(Expression \ 10 - 1) & p: Expression = Expression Mod 10         Case 11 To 19: s = s & Split(ndc)(Expression - 11) & p: Expression = -Expression         Case Is < 10: s = s & Split(edn)(Expression) & p: Expression = -Expression         End Select     Wend     If Len(s) Then         Expression = Abs(Expression)         Select Case Expression         Case 1: s = s & Split(val)(0) & IIf(rec And val <> valuteKop, z, "")         Case 2, 3, 4: s = s & Split(val)(1) & IIf(rec And val <> valuteKop, z, "")         Case Else: s = s & Split(val)(2) & IIf(rec And val <> valuteKop, z, "")         End Select: Select Case val         Case tsh, valuteKop 'исключение, тысяча и копейка в женском роде            s = Replace(s, "один ", "одна ")             s = Replace(s, "два ", "две ")         End Select     Else: Kop = Trim$(Mid$(Kop, 2))     End If     If rec = 0 Then s = s & Kop: Kop = ""     SumProp = LCase(s): SumProp = UCase(Left$(SumProp, 1)) & Mid$(SumProp, 2) End Function

Добавлено через 9 минут
Или вот например, я проверил можно ли на VBA сделать браузер
https://www.cyberforum.ru/post6530972.html
собрал за 15 мин