MS Excel

Otevřel jsem nový dokument, vložil jsem do UserForm funkci a přidal:
Private Sub MScomm1_OnComm()
MsgBox ("asfffasd")
If MSComm1.CommEvent = comEvReceive Then
Cells(1, 1) = MSComm1.Input
'Udělej něco (což může klidně být v proceduře VSTUP_CHANGE)
End if
End Sub
Vložil jsem jeden Modul, který obsahuje:
Sub Auto_Open()
MsgBox ("Start")
MSComm1.Settings = "115200,N,8,1"
MSComm1.RThreshold = 1
MSComm1.CommPort = 6
MSComm1.PortOpen = True
End Sub
Při spuštění vyhodí MsgBox ten potvrdím a pak se zastaví na prvním řádku s MSComm1 takže se port neotevře, s UserForm nemám zkušenosti takže jestli je třeba nějak načíst nebo inicializovat ručně tak to tam určitě nemám. Podobnou věc to dělalo když jsem měl špatně nastavený odkaz na list s MScomm1. Klidně se ptej na co chceš, jsem rád za každou radu.citovat

Další pokrok, jsem schopen zavřít a otevřít port z modulu, následující kód je z modulu, ale OnComm nejde. Pokud je formát např pro otevření: MSComm1.PortOpen = True tak hodí chybu, musí to byt takže je to furt nějak provázané s tím UserForm1
Private Sub UserForm1_Initialize() 'otevřu port
UserForm1.MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm() 'nefunguje nechce vzít název UserForm1.MSComm1_OnComm()
MsgBox ("asfffasd") 'nelíbí se mu tečka
If UserForm1.MSComm1.CommEvent = comEvReceive Then
MsgBox ("asfffasd")
Cells(1, 1) = UserForm1.MSComm1.Input
'Udělej něco (což může klidně být v proceduře VSTUP_CHANGE)
End If
End Sub
Private Sub UserForm_Initialize() 'Zavřu port
UserForm1.MSComm1.PortOpen = False
End Subcitovat

Mám to přesně jak jsi napsal a port se ani neotevře.citovat