Arr(1, 7) = InputBox("Used Frequency in MHz like 145000,00")
Arr(1, 8) = InputBox("Used Frequency Band in m like 2m")
Arr(1, 9) = InputBox("Used Mode like FM, DMR...")
Arr(1, 10) = "none"
If InStr("FMDMR", UCase(Arr(1, 9))) > 0 Then _
Arr(1, 10) = InputBox("Eventually used Relais in FM or DMR...")
Arr(1, 11) = InputBox("Received Signal Level")
Arr(1, 12) = InputBox("Transmitted Signal Level")
Arr(1, 13) = InputBox("Callsign of OM/YL")
Arr(1, 14) = "none"
If Arr(1, 10) = "DMR" Then _
Arr(1, 14) = InputBox("DMR-ID of OM/YL")
Arr(1, 15) = InputBox("Country of OM/YL")
Arr(1, 16) = InputBox("Quality of QSO")
Arr(1, 17) = InputBox("Eventually Notes to the QSO")
WerteTest = Arr