Here is the base logic where entering nothing or pressing cancel will exit the loop.
Public Class Form1
Private Sub EnterFactsButton_Click(sender As Object, e As EventArgs) Handles EnterFactsButton.Click
FactsListBox.Items.Clear()
Dim factIndex = 1
While True
Dim value = InputBox($"Enter fact {factIndex}")
If String.IsNullOrWhiteSpace(value) OrElse factIndex = 5 Then
Exit While
Else
FactsListBox.Items.Add(value)
factIndex += 1
End If
End While
End Sub
End Class