Common Function to Check the TextBox is blank or not

Parameter : Textbox, & TextBox Description

Output : Returns False, Popup the Message like "Name Can Not Be Blank."

Code :

    Shared Function ChkBlank(ByVal CTxt As TextBox, ByVal CTxtNam As String) As Boolean
        If Len(CTxt.Text.Trim()) > 0 Then
            CTxt.Text = UCase(CTxt.Text)
            Return True
        Else
            MessageBox.Show(CTxtNam & " Can Not Be Blank", "Notification", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            CTxt.Focus()
            Return False
        End If
    End Function