Visual Basic - extraer primer caracter de cadena

Label2.text=MID(Etiqueta1.Text,1,1)

Private Sub Command1_Click()

MsgBox PLDE(Text1.Text)  'llamo a la funcion mandando como parametro lo ingresado en el text

'esta sirve y puede ser llamada desde cualquier parte de ese formulario

End Sub

'Esta es la funcion que separa

Public Function PLDE(t As String) As String  ' funcion que recibe como parametro un texto y devuelve un texto

'PLDE =  PrimerasLetrasDespuesDeEspacio

PLDE = Mid(t, 1, 1) ' le asigno la primera letra por qe siempre debe empezar con una letra

  For i = 1 To Len(t)  ' recorro todo el text1.text a fin de buscar los espacios

    If Mid(t, i, 1) = " " And Mid(t, i + 1, 1) <> " " Then  ' si el caracter es un espacio y el siguiente no es un espacio

        PLDE = PLDE & Mid(t, i + 1, 1) ' selecciono y lo genero a la funcion

    End If

  Next i 'siguiente caracter

End Function

cuenta_palabras = Split(ComboBox1, " ")

If UBound(cuenta_palabras) + 1 = 1 Then

 txt_CodProd = Left(ComboBox1, 3) & "-" & PLDE(txt_Nombre.Text)

Else

  txt_CodProd = PLDE(ComboBox1.Text) & "-" & PLDE(txt_Nombre.Text)

End If