Error 94 - Invalid use of null

Hej eksperter

Jeg har lavet en button, som sender data til outlooks adress-book. Det fungerer saadan set fint.
---
Private Sub Send_to_outlook_Click()
Public Function StartOutLook()
        On Error GoTo StartOutLook_Error
        Dim spObj As Object, MyItem As Object
        Dim OlContact As ContactItem
     
        Set spObj = CreateObject("Outlook.Application")
        Set OlContact = spObj.CreateItem(olContactItem)
               
        With OlContact
         
            .FullName = Me.Contact_person
            .JobTitle = Me.Title
            .BusinessTelephoneNumber = Me.Direct_phone
            .MobileTelephoneNumber = Me.Direct_mobile_phone
            .Email1Address = Me.Direct_E_mail     
            .CompanyName = Me.Supplier_name
            .BusinessFaxNumber = Me.Fax
            .WebPage = Me.Web
            .BusinessAddressPostalCode = Me.PostalCode
            .BusinessAddressState = Me.Province
            .BusinessAddressCity = Me.City
            .BusinessAddressStreet = Me.Adress
            .BusinessAddressCountry = Me.Country
           
            .Display
          End With
                       
        ' Quit Microsoft Outlook.
          Set spObj = Nothing
          Exit Function

StartOutLook_Error:
        MsgBox "Error: " & Err & " " & Error
        Exit Function
      End Function
---

Mit problem er nu at hvis der ikke staar en vaerdi i et af felterne faar jeg en Error 94 - invalid use of null.

Hvordan kommer jeg uden om denne fejl? (Jeg er ikke haard til VBA, men har rodet lidt med det). I virkelighedens verden vil der ofte vaere data som ikke vides eks. mobilnummer eller...

Nogle gode forslag - 100 point til den som kan svare...