'@@@@@@@@@ Requerimiento por nivel (DATOS ALKON 13.X):
Private Const MAX_LEVEL As Byte = 50

Private Sub Form_Load()
RichTextBox1.Text = vbNullString '@@sacamos lo que tenga en la consola

Dim ELU As Long, LoopC As Long

For LoopC = 1 To MAX_LEVEL
    If LoopC < 15 Then
        ELU = ELU * 1.4
    ElseIf LoopC < 21 Then
        ELU = ELU * 1.35
    ElseIf LoopC < 33 Then
        ELU = ELU * 1.3
    ElseIf LoopC < 41 Then
        ELU = ELU * 1.225
    Else
        ELU = ELU * 1.25
    End If
    If ELU = 0 Then ELU = 300
    RichTextBox1.Text = RichTextBox1.Text & "Level " & LoopC & ": [" & ELU & "]" & vbNewLine
Next LoopC
End Sub

'Resultados:
' Level 1: [300]
' Level 2: [420]
' Level 3: [588]
' Level 4: [823]
' Level 5: [1152]
' Level 6: [1613]
' Level 7: [2258]
' Level 8: [3161]
' Level 9: [4425]
' Level 10: [6195]
' Level 11: [8673]
' Level 12: [12142]
' Level 13: [16999]
' Level 14: [23799]
' Level 15: [32129]
' Level 16: [43374]
' Level 17: [58555]
' Level 18: [79049]
' Level 19: [106716]
' Level 20: [144067]
' Level 21: [187287]
' Level 22: [243473]
' Level 23: [316515]
' Level 24: [411470]
' Level 25: [534911]
' Level 26: [695384]
' Level 27: [903999]
' Level 28: [1175199]
' Level 29: [1527759]
' Level 30: [1986087]
' Level 31: [2581913]
' Level 32: [3356487]
' Level 33: [4111697]
' Level 34: [5036829]
' Level 35: [6170116]
' Level 36: [7558392]
' Level 37: [9259030]
' Level 38: [11342312]
' Level 39: [13894332]
' Level 40: [17020557]
' Level 41: [21275696]
' Level 42: [26594620]
' Level 43: [33243275]
' Level 44: [41554094]
' Level 45: [51942618]
' Level 46: [64928272]
' Level 47: [81160340]
' Level 48: [101450425]
' Level 49: [126813031]
' Level 50: [158516289]