Private Sub btnLogin_Click()

    UserName = txtSName.Text

    If UserName <> "" Then
        ActivePresentation.SlideShowWindow.View.Next
        txtSName.Text = ""
        ActivePresentation.Slides(3).Shapes("lblSName").OLEFormat.Object.Caption = UserName
    Else
        MsgBox "Please Input Your Name", vbCritical, "Login"
    End If

End Sub

Private Sub txtSName_Change()

End Sub