this code requires a class which binds all the error msg. i got this code without the module and i have got no idea on how to make the class. here is the code.

Private Utility As New clsUtility
Private mblnValidationFailed As Boolean

Private Sub datEmployees_Validate(Action As Integer, Save As Integer)
Dim strMsg As String
Dim enumMsgResult As VbMsgBoxResult
If Save = True Or Action = vbDataActionUpdate _
Or Action = vbDataActionUnload Then
strMsg = ""
If txtEmpLastName.Text = "" Then
Utility.AddToMsg strMsg, _
"You must enter a last name."
txtEmpLastName.SetFocus
End If
If txtEmpFirstName.Text = "" Then
Utility.AddToMsg strMsg, _
"You must enter a first name."
txtEmpFirstName.SetFocus
End If
If Not IsDate(txtBirthDate.Text) Then
Utility.AddToMsg strMsg, _
"You must enter a birth date."
txtBirthDate.SetFocus
Else
If CDate(txtBirthDate.Text) >= Date Then
Utility.AddToMsg strMsg, _
"Birth date must be in the past."
txtBirthDate.SetFocus
End If
End If
If strMsg <> "" Then
` We have something in the variable strMsg, which
` means that an error has occurred. Display the
` message. The focus is in the last text box where
` an error was found
enumMsgResult = MsgBox(strMsg, _
vbExclamation + vbOKCancel +
vbDefaultButton1)
If enumMsgResult = vbCancel Then
` Restore the data to previous values using the
` data control
datEmployees.UpdateControls
` Allow form unload.
mblnValidationFailed = False
Else
` Cancel the Validate event
Action = vbDataActionCancel
` Deny form unload until fields are corrected
mblnValidationFailed = True
End If
Else
mblnValidationFailed = False
End If
End If
End Sub

can you tell me how to make the class?
thank you very much.