One of my friend has created a below coding for me.




Sub Demo()
Dim i As Long, j As Long, k As Long, t As Single, SngFnt As Single, ArrWdth() As Single
Dim ArrChr As String, StrTmp...