messagebox voor verscheidene buttons

[bjornesto]

ik heb hier twee codes die werken.
Deze geven een messagebox van een bepaalde deur

Echter in de beide codes zijn er veel overeenkomsten

Hoe kan je dat gemakkelijker maken

voorbeeld van de messageboxen

Sub door_001_click()
'--------------------------------------------------------------------------------------------
'afblijven
'--------------------------------------------------------------------------------------------
Dim keynumber As String:                keynumber = "Keynumber: "
Dim roomname As String:                 roomname = "Room name: "
Dim roomnumber As String:               roomnumber = "Room number: "
Dim doornumber As String:               doornumber = "Door number: "
Dim zone As String:                     zone = "HO/+0N/"

'zinnen voor de messageboxen
Dim status As String:                   status = "Locked"
'Dim frame1 As Object:                   Set frame1 = Room_numbers_0N_exemple.Frame11

'--------------------------------------------------------------------------------------------
'enkel het cijfer na togglebutton veranderen --> zie na = voor de userform te weten
'--------------------------------------------------------------------------------------------
Dim key1 As Object:                     Set key1 = Key_numbers.ToggleButton13
Dim room1 As Object:                     Set room1 = Room_numbers_0N_fast.ToggleButton72
Dim room2 As Object:                     Set room2 = Room_numbers_0N_asa_fast.ToggleButton72
Dim door1 As Object:                     Set door1 = Door_numbers_0N_fast.ToggleButton7

On Error GoTo 2                         ' Als frame 1 in het groen gezet is gaat hij naar naar 2
MsgBox (roomname & "      " & frame1.Caption & " " & room2.Caption & _
        vbNewLine & roomnumber & "  " & zone & room1.Caption & _
        vbNewLine & vbNewLine & doornumber & "    " & zone & door1.Caption & _
        vbNewLine & keynumber & "       HO " & key1.Caption & _
        vbNewLine & "Status door:        " & status), vbInformation, (frame1.Caption & " " & room2.Caption)
Exit Sub

2:
MsgBox (roomname & "      " & room2.Caption & _
        vbNewLine & roomnumber & "  " & zone & room1.Caption & _
        vbNewLine & vbNewLine & doornumber & "    " & zone & door1.Caption & _
        vbNewLine & keynumber & "       HO " & key1.Caption & _
        vbNewLine & "Status door:        " & status), vbInformation, (room2.Caption)
Exit Sub
door1.Value = False
End Sub
Sub door_002_click()
'--------------------------------------------------------------------------------------------
'afblijven
'--------------------------------------------------------------------------------------------
Dim keynumber As String:                keynumber = "Keynumber: "
Dim roomname As String:                 roomname = "Room name: "
Dim roomnumber As String:               roomnumber = "Room number: "
Dim doornumber As String:               doornumber = "Door number: "
Dim zone As String:                     zone = "HO/+0N/"

'zinnen voor de messageboxen
Dim status As String:                   status = "Unlocked"
'Dim frame1 As Object:                   Set frame1 = Room_numbers_0N_exemple.Frame11

'--------------------------------------------------------------------------------------------
'enkel het cijfer na togglebutton veranderen --> zie na = voor de userform te weten
'--------------------------------------------------------------------------------------------
Dim key1 As Object:                     Set key1 = Key_numbers.ToggleButton13
Dim room1 As Object:                     Set room1 = Room_numbers_0N_fast.ToggleButton73
Dim room2 As Object:                     Set room2 = Room_numbers_0N_asa_fast.ToggleButton73
Dim door1 As Object:                     Set door1 = Door_numbers_0N_fast.ToggleButton8

On Error GoTo 2
MsgBox (roomname & "      " & frame1.Caption & " " & room2.Caption & _
        vbNewLine & roomnumber & "  " & zone & room1.Caption & _
        vbNewLine & vbNewLine & doornumber & "    " & zone & door1.Caption & _
        vbNewLine & keynumber & "       HO " & key1.Caption & _
        vbNewLine & "Status door:        " & status), vbInformation, (frame1.Caption & " " & room2.Caption)
Exit Sub
2:
MsgBox (roomname & "      " & room2.Caption & _
        vbNewLine & roomnumber & "  " & zone & room1.Caption & _
        vbNewLine & vbNewLine & doornumber & "    " & zone & door1.Caption & _
        vbNewLine & keynumber & "       HO " & key1.Caption & _
        vbNewLine & "Status door:        " & status), vbInformation, (room2.Caption)
Exit Sub
End Sub