Definir Funciones en Macro

Buenos Dias amigos del Foro.

Tengo un problema al realizar una macro, no tengo idea de
como definir la funcion 'concatenar' dentro de una macro.

Esta es la macro:
' MSCD Macro
' Macro grabada el 30/09/2004
'
'Obtiene el numero de fila
NumDoc = Cells(6, 1)

If NumDoc <= 9 Then
Range("C3").Select
Selection.Copy
End If
If NumDoc >= 10 Then
Range("D3").Select
Selection.Copy
End If

'Aqui deseo que el contenido de la celda C1 (que es COM)
se concatene
'con el contenido de la celda C2 (que es 10125)
'El valor de la variable DocFinal deberia de ser "
COM10125 "
'pero la Macro me envia el mensaje:
' "No se ha definido Sub o Function" y se detiene.

DocFinal = concatenar(c1, c2)

'
End Sub

Agradezco infinitamente su ayuda.

Julian MB