Let us create a program that will get the first and last letter of an entered string combining the selstart, sellength, seltext and len() function.
'LONG METHOD STYLE CODE
Private Sub cmdfind_Click()
Dim a As Integer
txta.SelStart = 0
txta.SelLength =
1
txtb.Text =
"The first letter is " + UCase(txta.SelText)
a =
Len(txta.Text) - 1
txta.SelStart = a
txta.SelLength =
1
txtb.Text =
txtb.Text + " and the last letter is " + UCase(txta.SelText)
txta.SelStart = a
+ 1
End Sub
'SHORT METHOD STYLE CODE
Private Sub cmdfind_Click()
txta.SelStart = 0
txta.SelLength =
1
txtb.Text =
"The first letter is " + UCase(txta.SelText)
txta.SelStart =
Len(txta.Text) - 1
txta.SelLength =
1
txtb.Text =
txtb.Text + " and the last letter is " + UCase(txta.SelText)
txta.SelStart =
Len(txta.Text)
End Sub
