Private Sub btnDisplay_Click(...) Handles btnDisplay.Click
Dim name As String = "Terry Jones"
Abbreviate(name)
txtOutput.Text = name
End Sub
Sub Abbreviate(ByRef a As String)
Dim b As Integer = a.IndexOf("")
a = a.SubString(0, 1) & " . " & a.SubString(b + 1, 1) & "."
End Sub