Untitled

Private Sub cmdAlphabetize_Click()
    Dim strFirstWord As String
    Dim strSecondWord As String
    Dim strFirst As String
    Dim strSecond As String
    strFirstWord = txtFirstWord.Text
    strSecondWord = txtSecondWord.Text
    
    lblMessage.Caption = Letter(strFirstWord, strSecondWord)
End Sub

Function Letter(ByRef strFirstWord As String, ByRef strSecondWord As String) As String
    Dim strFirst As String
    Dim strSecond As String
    strFirst = strFirstWord 
    strSecond = strSecondWord 
    
    If Asc(Left(strFirstWord, 1) > Asc(Left(strSecondWord, 1) Then
        Letter = strSecond & Space(1) & strFirst
    Else
        Letter = strFirst & Space(1) & strSecond
    End If
End Function