Singkat kata dengan VBA Excel

Private Sub TextBox1_Change()
Dim i As Integer, tmp As String, kangim() As String
kangim = Split(TextBox1)
For i = LBound(kangim) To UBound(kangim)
tmp = tmp & Mid(kangim(i), 1, 1)
Next
TextBox2 = tmp
End Sub

Kalao menggunakan UDF

Function Singkatan(ref As Range) As String
Dim i As Integer, tmp As String, kangim() As String
kangim = Split(ref)
For i = LBound(kangim) To UBound(kangim)
tmp = tmp & Mid(kangim(i), 1, 1)
Next
Singkatan = tmp
End Function

cara gunakannya
=Singkatan(B1)