Private Sub Watcher_WatcherMSG(ByVal vf_Action As String, ByVal vf_Target As _
  String) Handles Watcher.WatcherMSG
 
        Timer1.Start() '<- Nicht startender Timer
 
        ReDim Preserve mf_JobCastArray(UBound(mf_JobCastArray) + 1)
 
        mf_JobCastArray(UBound(mf_JobCastArray)) = vf_Action & _
          Microsoft.VisualBasic.Chr(1) & vf_Target
 
End Sub

Real programmer do not comment their code;
what?s hard to write should be hard to read