Sub ChangeCaption(frmAny As Form) If IsNull(frmAny.Caption) Then frmAny.Caption = "Form For - " & CurrentUser Else frmAny.Caption = frmAny.Caption & " - " & CurrentUser End If End Sub