A problem I've never had before

[MartinLiss]

Private Sub Form_Load()
    Dim Nick1 As String, Nick2 As String, Nick3 As String
    Nick1 = GetRandomNick: Nick2 = GetRandomNick: Nick3 = GetRandomNick
    If LenB(Nick1) = LenB(Nick2) Then If InStr(Nick1, Nick2) = 1 Then Nick2 = "she"
    MsgBox Nick1 & " thinks " & Nick2 & " is very good in programming. However, " & Nick3 & " greatly disagrees with this." & _
        " It is now up to " & Nick1 & " [HL="#FFFF80"]to [/HL]figure [HL="#FFFF80"]out [/HL]what should be done: to kill " & Nick3 & " or just cause a ban.", _
        vbInformation, "VBForums Latest Headlines"
    Unload Me
End Sub