Userforms help

Thanks for the rep. For the error message you have used below code :

Private Sub OK_Click()

If AnalystName.Value = "" Then
GoTo Analysterr
Exit Sub
ElseIf Sortcode.Value = "" Then
GoTo SCerr
Exit Sub
ElseIf AccNo.Value = "" Then
GoTo ACCnoerr
Exit Sub
Else
Analyst_input.Hide
End If

Exit Sub
SCerr:
    MsgBox "Please Enter Sortcode", vbOKOnly, "Error"
ACCnoerr:
    MsgBox "Please Enter Account number", vbOKOnly, "Error"
Analysterr:
    MsgBox "Please Enter Your Name", vbOKOnly, "Error"
End Sub

Here you have declared Exit Sub after GoTo. But when you call GoTo then it goes to the line you declared and don't come back again unless you call them. So call exit Sub after MsgBox as below :

Private Sub OK_Click()

If AnalystName.Value = "" Then
GoTo Analysterr
ElseIf Sortcode.Value = "" Then
GoTo SCerr
ElseIf AccNo.Value = "" Then
GoTo ACCnoerr
Else
Analyst_input.Hide
End If

Exit Sub
SCerr:
    MsgBox "Please Enter Sortcode", vbOKOnly, "Error"
    Exit Sub
ACCnoerr:
    MsgBox "Please Enter Account number", vbOKOnly, "Error"
    Exit Sub
Analysterr:
    MsgBox "Please Enter Your Name", vbOKOnly, "Error"
    Exit Sub
End Sub