Function myAccessVb(myData)
	dim strTmp

	myAcc = split(myData,",")
	strTmp = myAcc(0) + " " + myAcc(1) 
	if myAcc(2) <> "" then 

		strTmp = strTmp + "駅より バス 約" + myAcc(2) + "分"
	
		if myAcc(3) <> "" then 
			strTmp = strTmp + " バス停から徒歩 約" + myAcc(3) + "分"
		end if

	elseif myAcc(3) <> "" then 
		strTmp = strTmp + "駅 徒歩 約" + myAcc(3) + "分"

	else
		strTmp = strTmp + "駅より 車で約 " + myAcc(5) + "分 (約 " + myAcc(4) + " km)"

	end if

	myAccessVb = strTmp

End Function

Function myKenpeiVb(myData)
	dim strTmp

	if left(myData,1)="%" then 
		myData = "---/---"
	end if

	myKenpeiVb = myData

End Function

Function myAddress(myData)
	myData = Replace(myData,"兵庫県","")
	myData = Replace(myData,"大阪府","")
	myData = Replace(myData,"京都府","")
	myAddress = myData
End Function