Программы VBA

[Keeper!]

Приветствую.
Требуется помощь в написании программ:

1. Проверить истинность высказывания: "Цифры данного трехзначного числа образуют возрастающую последовательность".
2. Удалить из слова все знаки «+» и «-»
3. Заменить каждый третий символ на последний

Первая решается по подобию этой: "произведение цифр данного двухзначного числа является нечетным числом"

Private Sub Cmd1_Click()
A = Val(Right(Txt1.Text, 1))
B = Val(Left(Txt1.Text, 1))
If A * B Mod 2 <> 0 Then
Lbl3.Caption = True
Else
Lbl3.Caption = False
End If
End Sub

Остальные две должны содержать следующие коды:
If OptionButton1.Value=True Then
…Инструкции для решения задачи 2…
End If
If OptionButton2.Value=True Then
…Инструкции для решения задачи 3…
End If

Спасибо.

[Hugo121]

Зачем тут OptionButton?
Но впрочем это навесное... Сама суть п.1:

Option Explicit

Sub tt()
Dim flag As Boolean, s
s = 143
If Mid(s, 1, 1) < Mid(s, 2, 1) Then
If Mid(s, 2, 1) < Mid(s, 3, 1) Then
flag = True
End If
End If
MsgBox flag
End Sub

Может можно чуть поэлегантней написать... получилось так.

[Keeper!]

[QUOTE=Hugo121;814988]Зачем тут OptionButton?
Там кнопка по заданию есть, код необходим для её функционирования.
Спасибо.

[Keeper!]

Со 2 и 3 заданием может кто помочь?

[motorway]

Могу помочь за небольшую плату. 561986872 аська

[Hugo121]

С кнопкой понятно. Непонятно только - Вы и это не можете сделать?

С плюсами/минусами так (можно всё в одну строку записать
s = Replace(Replace(s, "-", ""), "+", "")
но так понятнее):

Sub tt()
Dim s$
s = "as+dfg-fghfh+gfjhuy-yjhk"
s = Replace(s, "+", "")
s = Replace(s, "-", "")
MsgBox s
End Sub

Третье задание вероятно перебором нужно делать, что-то вроде

Sub tt()
Dim s$, i&
s = "qwwewretey"
For i = 1 To Len(s)
If i Mod 3 = 0 Then Mid(s, i, 1) = Right(s, 1)
Next
MsgBox s
End Sub

А за кнопку (и за эти примеры тоже) 561986872 аська

[Keeper!]

Благодарю.