IsEmpty Help for multiple Cells

Try

Sub Contact_2()
    Dim i As Long, msg As String, x As Range
    With Sheets("Registration Form")
        With .Range("e55,e59,e77,e81")
            For i = 1 To .Areas.Count
                If IsEmpty(.Areas(i).Value) Then msg = msg & ", Con" & i
            Next
        End With
    End With
    If Len(msg) Then MsgBox "Please input the required" & _
            String(2, vbLf) & Mid$(msg, 3), vbCritical
End Sub