Private Stations() As String Private Sub Form_Load() Stations = Split("津田沼 東船橋 船橋 西船橋 下総中山 本八幡 市川") End Sub