1: Function AddCustomer(ByVal NAME As String, ByVal YOMIGANA As String, _ ByVal ZIP As String, ByVal ADDRESS As String, _ ByVal TELEPHONE As String, ByVal FAX As String, _ ByVal MEMO As String) As Long 2: ' 新規の顧客を登録する 3: ' NAME=顧客名,YOMIGANA=よみがな,ZIP=郵便番号,ADDRESS=住所 4: ' TELEPHONE=電話番号,FAX=FAX番号,MEMO=摘要 5: ' とする 6: ' そして,登録した顧客の顧客番号を戻り値として返すものとする 7: End Function