フォームにコマンドボタン（Command1）１つと、テキストボックス２つ(Text1, Text2)を配置します。

Option Explicit

Dim Station(7) As String
Dim TrainTime(7) As Integer

Private Sub Command1_Click()

    Dim StartStation As Integer
    Dim EndStation As Integer
    Dim K As Integer
    Dim Target As String
    Dim Jikan As Integer

    '出発駅が配列の何番目かを求める。
    Target = Text1.Text

    For K = 1 To 7
        If Target = Station(K) Then
            StartStation = K
        End If
    Next K

    If StartStation = 0 Then
        MsgBox Target & "！？" & vbCrLf & "そんな名前の駅はありません！"
        Exit Sub
    End If

    '目的地が配列の何番目かを求める。
    Target = Text2.Text

    For K = 1 To 7
        If Target = Station(K) Then
            EndStation = K
        End If
    Next K

    If EndStation = 0 Then
        MsgBox Target & "！？" & vbCrLf & "そんな名前の駅はありません！"
        Exit Sub
    End If

    '出発駅から目標駅までの時間を計算する。
    For K = StartStation To EndStation - 1
        Jikan = Jikan + TrainTime(K)
    Next K

    MsgBox Station(StartStation) & " から " & Station(EndStation) & _
                                "までは" & Jikan & " 分かかります。"

End Sub

Private Sub Form_Load()

    Station(1) = "津田沼"
    Station(2) = "東船橋"
    Station(3) = "船橋"
    Station(4) = "西船橋"
    Station(5) = "下総中山"
    Station(6) = "本八幡"
    Station(7) = "市川"

    TrainTime(1) = 3
    TrainTime(2) = 2
    TrainTime(3) = 3
    TrainTime(4) = 2
    TrainTime(5) = 4
    TrainTime(6) = 4

End Sub