Try this.
Dim blntext(1 To 5) As Boolean

Dim i As Long

    For i = 1 to 5
        If Len(Me.controls("Textbox" & i)) > 0 Then
            blntext(i) = True 
        End If
    Next i