VB6 question

Dim strTest As String
Dim i As Integer
strTest = “Hello,World“
MsgBox “String length=“ & Len(strTest), vbInformation, strTest
For i = 1 To Len(strTest)
’開始讀取文字
MsgBox “The “ & i & StNdRdTh(i) & “ character is “ & Mid$(strTest, i, 1)
Next
’自己寫左個Function轉th、st果D
Function StNdRdTh(n As Integer) As String
If n = 11 Or n = 12 Or n = 13 Then
StNdRdTh = “th“
Exit Function
Else
Select Case Right$(CStr(n), 1)
Case 1
StNdRdTh = “st“
Case 2
StNdRdTh = “nd“
Case 3
StNdRdTh = “rd“
Case Else
StNdRdTh = “th“
End Select
End If
End Function

你copy的意思是什麼地方copy到那裡???

你可以將字讀進變數內，唔明點解要copy，是否要paste在其他地方﹖