急救！类型转换问题

Question

Option ExplicitConst DataNo = 16
Dim fBuf(0 To DataNo * 2 - 1) As Single
Dim wRtn As Integer, wTotalBoards As Integer
Dim Index As Integer
Dim wCardType As Integer
Dim bProcessing As Boolean
Dim wBase As Integer
Dim wSelect As Integer
Private Sub Command4_Click()
 Dim i As Integer
        wCardType = cbCardType.ListIndex
    wRtn = A821_ChScan_PollingFloat(wCardType, fBuf(0), DataNo)
   
    If wRtn <> A821_NoError Then
       bProcessing = False
        Exit Sub
    End If
    For i = 0 To 15        
    Text1(i).Text = Str$(fBuf(i)) //请问这里如何把single转成string   
    Next i  
     End Sub

Answer 1

Text1(i).Text = cStr(fBuf(i))