I am trying to create a Marco for a command button that with find the spaces in a text box and change them into thin spaces.
My code is
Private Sub cmbShrink_Click()
Dim b As String
b=me.txtBullet.value
me.txtBullet.Value=Replace(b, " ", ChrW(8201))
End Sub