Private Sub btnDisplay_Click(...) Handles btnDisplay.Click

  Dim a, b As String

  txtBox.Clear()

  a = "A"

  b = "B"

  PrintWords(a, b)

  PrintWords(b, a)

End Sub

Sub PrintWords(ByVal a As String, ByVal b As String)

  txtBox.Text &= a & b

End Sub