Private Sub cmdDrucken_click()
....
Timer1.Interval = 2000
Timer1.Enabled = True
Timer1_Timer
MSComm1.Output = Chr$(&HD) & "texxxxt" & Chr$(&HA)
......
....
End sub

Private Sub Timer1_Timer()
 
    With Timer1
        .Enabled = False
        lblstatusanzeige.Caption = "es wird gedruckt"
        .Enabled = True
    End With
 
End Sub