Do you want to do this when the Appointment item is currently open? If so,
map a custom button to this macro:
Sub AddPhoneNumberToCurrentAppointmentItem()
If Not ActiveInspector Is Nothing Then
If ActiveInspector.CurrentItem.Class = olAppointment Then
ActiveInspector.CurrentItem.Location = "(555) 555-1234"
End If
End If
End Sub