为什么当我尝试打印我正在搜索的文件的内容时出现错误？

你能帮我搜索和打印由文本指定的文件textbox1吗？我有以下代码，但textbox1显示了一个错误。我不知道代码是否正确编写并且运行正常。

第一课：

Public Class tisk
    'print 
    Public Shared Function printers()
        Dim printThis
        Dim strDir As String
        Dim strFile As String
        Dim Textbox1 As String



        strDir = "C:\_Montix a.s. - cloud\iMontix\Testy"
        strFile = "C:\_Montix a.s. - cloud\iMontix\Testy\" & Textbox1.text & ".lbe"


        If Not fileexprint.FileExists Then
            MsgBox("Soubor neexistuje")
            printers = False
        Else

            fileprint.PrintThisfile()
            printers = True

        End If
    End Function

End Class

第二类：

Public Class fileprint
    Public Shared Function PrintThisfile()
        Dim formname As Long
        Dim FileName As String

        On Error Resume Next
        Dim X As Long
        X = Shell(formname, "Print", FileName, 0&)
    End Function
End Class

第三类：

Public Class fileexprint
    Public Shared Function FileExists()
        Dim fname As Boolean
        '   Returns TRUE if the file exists
        Dim X As String
        X = Dir(fname)
        If X <> "" Then FileExists = True _
        Else FileExists = False
    End Function
End Class

当我用文本填充文本框时，如何使用此文本在计算机中搜索文件并打印此文件？