¿Cómo extraer el primer carácter de las palabras de un string? Vba Excel

En la variable 'cad' tendrás las iniciales:

Sub test()
  Dim texto As String, cad As String
  Dim i As Long
  '
  texto = "Medios Tecnicos de Mto"    'aquí va el string original
  '
  texto = " " & Trim(texto)
  For i = 1 To Len(texto)
    If Mid(texto, i, 1) = " " Then
      cad = cad & UCase(Mid(texto, i + 1, 1))
    End If
  Next
  MsgBox cad
End Sub

Puede probar con esta función:

Public Function MiFuncion(ByVal strCadena As String) As String
    For Each strpalabra In Split(strCadena, " ")
        MiFuncion = MiFuncion & UCase(Left(strpalabra, 1))
    Next
End Function