Read Fixed Lines Into TextBox

Date: 02-16-2022

Return to Index

 
Function PBMain() As Long
   Local D, dArray() As String, i,RecLen As Long
   D = "AAAAABBBBBCCCCCDDDDDEEEEE"
   RecLen = 5
   ReDim dArray(RecLen-1)
   For i = 0 To Len(D)\RecLen-1
      dArray(i) = Mid$(D,i*RecLen+1,RecLen)
   Next i
   ? Join$(dArray(),$CrLf)
End Function
 
'gbs_01401
'Date: 10-17-2014

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm